home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / SQL / ariacom / br15Evaluation.exe / br15Evaluation / ASP SCripts / vbPresentationReport.asp < prev    next >
Text File  |  2002-09-09  |  65KB  |  1,284 lines
  1. <%
  2. '
  3. '  Ariacom Business Reports
  4. '  Copyright 2001-2002, ARIACOM SARL, Geneva, Switzerland
  5. '  All rights reserved
  6. '  www.ariacom.com
  7. '
  8.  
  9. '
  10. 'spRepListOfReport
  11. '
  12. sub spRepListOfReport(bStart, theNode)
  13. '''''''
  14. ' Title
  15. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  16.   if bStart then
  17.       Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/fldropen.gif""></td><td align=center width=1% > </td>")
  18.       call setPresentationValues("<td><font class=""title"">", "", "</td>")
  19.     gPresentationContext = kGenItemIdTitle
  20.   else
  21.       Response.Write("</tr></table>")
  22.   end if
  23. ''''''''''''''''''''''
  24. ' Error message in red
  25. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  26.   call setPresentationValues("<br><font class=""error"">", "", "</font><br>")
  27. '''''''''''
  28. 'Navigation
  29. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  30.   if bStart then
  31.     gPresentationValue = false
  32.     gStrInputSize = "12"
  33.     Response.Write "<table width=100% ><tr>"
  34.     gPresentationContext = kGenItemIdNavigation
  35.   else
  36.     if not gPresentationValue then
  37.       Response.Write "<td width=50% > </td>"
  38.     end if
  39.     Response.Write "</tr></table>"
  40.   end if
  41. '''''''
  42. 'Data: start and end the table
  43. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  44.   gPresentationContext = kGenItemIdData
  45.   if bStart then
  46.     Response.Write "<table border=0 cellpadding=0 width=100% >"
  47.   else
  48.     Response.Write "</table>"
  49.   end if
  50. else
  51.   '''''''
  52.   'Context
  53.   if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNumber, bStart) then 
  54.     'Number of report
  55.     call setPresentationValues("<td width=25% align=right><font class=""normalBold"">", "", " </font></td>")
  56.   elseif isNodeNameId(theNode, kXml_TagItem, kItemId_RepFolder) then 'Folder
  57.     if bStart then
  58.       gPresentationContext = "inFolder"
  59.       call setPresentationValues("<td>", "", "</td>")
  60.         Response.Write "<tr><td height=20><img src=""images/fldrshut.gif""></td>"
  61.       else 
  62.       Response.Write "</tr>"
  63.       end if
  64.   elseif isNodeNameId(theNode, kXml_TagItem, kItemId_RepUserReport) or isNodeNameId(theNode, kXml_TagItem, kItemId_MainFile) then 'Report
  65.     if bStart then
  66.       gPresentationContext = "inReport"
  67.       gPresentationState = gPresentationState + 1
  68.       if gPresentationState mod 2 = 1 then 
  69.         gPresentationValue = " bgcolor=#EEEEEE "
  70.       else 
  71.         gPresentationValue=" bgcolor=#FFFFFF "
  72.       end if
  73.       call setPresentationValues("<td width=30%" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  74.       if isNodeNameId(theNode, kXml_TagItem, kItemId_RepUserReport) then 
  75.           Response.Write "<tr><td align=center width=20><img src=""images/reportFile.gif""></td>"
  76.         else
  77.           Response.Write "<tr><td align=center width=20><img src=""images/file.gif""></td>"
  78.         end if
  79.       else 
  80.       Response.Write "</tr></table></td></tr>"
  81.       end if
  82.     elseif isNodeNameId(theNode, kXml_TagItemDisplay, kDataId_RepReportType) then
  83.       if bStart then
  84.       call setPresentationValues("<td width=20% " & gPresentationValue & "><font class=""normal"">", "", " </td>")
  85.     else
  86.       Response.Write "<td" & gPresentationValue & "><table><tr>"
  87.     end if
  88.   elseif theNode.text = kAction_RepEditReport and bStart then
  89.     call setPresentationValues("<td align=center width=20><img src=""images/editReport.gif""></td><td align=left width=35% ><font class=""normal"">", "", "</td>")
  90.   elseif theNode.text = kAction_RepEditFile and bStart then
  91.     call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  92.   elseif theNode.text = kAction_RepEditCopyFile and bStart then
  93.     call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  94.   elseif isNodeNameId(theNode, kXml_TagItemDisplay, kAction_RepEditReport) and bStart then
  95.     call setPresentationValues("<td align=center width=20></td><td width=35% ><font class=""normal"">", "", "</td>")
  96.   elseif theNode.text = kAction_RepPreview and bStart then
  97.     call setPresentationValues("<td align=center width=20></td><td align=center width=20><img src=""images/preview.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  98.  
  99.   'Context Navigation  
  100.   elseif  gPresentationContext = kGenItemIdNavigation then 
  101.     if theNode.text = kAction_RepDeleteFolder and bStart then
  102.       call setPresentationValues("<td width=50% ><table><tr><td align=center width=20><img src=""images/delete.gif""></td><td><font class=""normal"">", "</td><td>", "</td></tr></td></table></td><td width=50% > </td></tr><tr>")
  103.     elseif isIdDataStart(theNode, kDataId_RepReportType, bStart) then
  104.       call setPresentationValues("<td width=50% ><table><tr><td align=center width=20><img src=""images/newReport.gif""></td><td><font class=""normal"">", " ", "")
  105.     elseif theNode.text = kAction_RepNewReport and bStart then
  106.       call setPresentationValues(" ", "", "</td></tr></table></td>")
  107.     elseif isIdDataStart(theNode, kDataId_RepOutputTemplate, bStart) then
  108.       call setPresentationValues("<td width=50% ><table><tr><td align=center width=20><img src=""images/reportTemplate.gif""></td><td><font class=""normal"">", " ", "</td></td></tr></table></tr>")
  109.     elseif isIdDataStart(theNode, kDataId_RepFolderName, bStart) then
  110.       call setPresentationValues("<tr><td ><table><tr><td align=center width=20><img src=""images/fldrshut.gif""></td><td><font class=""normal"">", " ", "")
  111.     elseif theNode.text = kAction_RepNewFolder and bStart then
  112.       call setPresentationValues(" ", "", "</td></tr></table></td>")
  113.     elseif isIdDataStart(theNode, kDataId_RepNewFolderName, bStart) then
  114.       gPresentationValue = true
  115.       call setPresentationValues("<td><table><tr><td align=center width=20><img src=""images/rename.gif""></td><td><font class=""normal"">", " ", "")
  116.     elseif theNode.text = kAction_RepRenameFolder and bStart then
  117.       call setPresentationValues(" ", "", "</td></tr></table></td>")
  118.     end if
  119.   end if
  120. end if
  121. end sub
  122.  
  123. '
  124. 'spRepListOfReport2
  125. '
  126. sub spRepListOfReport2(bStart, theNode)
  127. '''''''
  128. ' Title
  129. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  130.   if bStart then
  131.       Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title"" ><tr><td align=center width=20><img src=""images/searchReport.gif""></td><td align=center width=20> </td>")
  132.       call setPresentationValues("<td><font class=""title"">", "", "</td>")
  133.     gPresentationContext = kGenItemIdTitle
  134.   else
  135.       Response.Write("</tr></table>")
  136.   end if
  137. ''''''''''''''''''''''
  138. ' Error message in red
  139. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  140.   call setPresentationValues("<br><font  class=""error"">", "", "</font><br>")
  141. '''''''''''
  142. 'Navigation
  143. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  144.   if bStart then
  145.     call setPresentationValues("<tr><td>",  " ", "</td></tr>")
  146.     gPresentationContext = kGenItemIdNavigation
  147.     Response.Write "<table>"
  148.   else
  149.     Response.Write "</table><br>"
  150.   end if
  151. '''''''
  152. 'Data: start and end the table
  153. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  154.   gPresentationContext = kGenItemIdData
  155.   if bStart then
  156.     Response.Write "<table border=0 cellpadding=0 width=100% >"
  157.   else
  158.     Response.Write "</table>"
  159.   end if
  160. else
  161.   '''''''
  162.   'Context
  163.   if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNumber, bStart) then 
  164.     'Number of report
  165.     call setPresentationValues("<td class=""texttitle"" width=25% align=right><font class=""normalBold"">", "", " </td>")
  166.   elseif isNodeNameId(theNode, kXml_TagItem, kItemId_RepFolder) then 'Folder
  167.     if bStart then
  168.       gPresentationContext = "inFolder"
  169.       call setPresentationValues("<td>", ": ", "</td>")
  170.         Response.Write "<tr><td><img src=""images/fldrshut.gif""></td>"
  171.       else 
  172.       Response.Write "</tr>"
  173.       end if
  174.   elseif isNodeNameId(theNode, kXml_TagItem, kItemId_RepUserReport)  or isNodeNameId(theNode, kXml_TagItem, kItemId_MainFile) then 'Report
  175.     if bStart then
  176.       gPresentationContext = "inReport"
  177.       gPresentationState = gPresentationState + 1
  178.       if gPresentationState mod 2 = 0 then 
  179.         gPresentationValue = " bgcolor=#EEEEEE "
  180.       else 
  181.         gPresentationValue=" bgcolor=#FFFFFF "
  182.       end if
  183.       call setPresentationValues("<td width=40%" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  184.       if isNodeNameId(theNode, kXml_TagItem, kItemId_RepUserReport) then 
  185.           Response.Write "<tr><td align=center width=20><img src=""images/reportFile.gif""></td>"
  186.         else
  187.           Response.Write "<tr><td align=center width=20><img src=""images/file.gif""></td>"
  188.         end if
  189.       else 
  190.       Response.Write "</tr></table></td></tr>"
  191.       end if
  192.  
  193.     elseif isNodeNameId(theNode, kXml_TagItemDisplay, kDataId_RepReportType) then
  194.       if bStart then
  195.       call setPresentationValues("<td width=20% " & gPresentationValue & "><font class=""normal"">", "", " </td>")
  196.     else
  197.       Response.Write "<td" & gPresentationValue & "><table><tr>"
  198.     end if
  199.   elseif theNode.text = kAction_RepEditReport and bStart then
  200.     call setPresentationValues("<td align=center width=20><img src=""images/editReport.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  201.   elseif theNode.text = kAction_RepEditFile and bStart then
  202.     call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  203.   elseif theNode.text = kAction_RepEditCopyFile and bStart then
  204.     call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  205.   elseif isNodeNameId(theNode, kXml_TagItemDisplay, kAction_RepEditReport) and bStart then
  206.     call setPresentationValues("<td align=center width=20></td><td align=left width=35% ><font class=""normal"">", "", " </td>")
  207.   elseif theNode.text = kAction_RepPreview and bStart then
  208.     call setPresentationValues("<td width=20></td><td align=center width=20><img src=""images/preview.gif""></td><td align=left><font class=""normal"">", "", "</td>")
  209.  
  210.   'Context Navigation  
  211.   elseif  gPresentationContext = kGenItemIdNavigation then 'Context Navigation 
  212.     if isIdData(theNode, kDataId_RepReportType) or  isIdData(theNode, kDataId_RepFolderName) then
  213.       if bStart then
  214.         gStrInputSize = "12"
  215.         call setPresentationValues("<tr><td><font class=""normal"">", "</td>", "")
  216.       else
  217.         call setPresentationValues(" ", "", "")
  218.       end if
  219.     elseif theNode.nodeName = kXml_TagActionSubmit then
  220.       if not bStart then
  221.         Response.Write "</td></tr>"
  222.       end if
  223.     end if
  224.   end if
  225. end if
  226. end sub
  227.  
  228.  
  229. '
  230. 'spRepSelectElement
  231. '
  232. sub spRepSelectElement(bStart, theNode)
  233. '''''''
  234. ' Title
  235. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  236.   gPresentationContext = kGenItemIdTitle
  237.     Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  238.   call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  239. '''''''
  240. ' Error message in red
  241. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  242.   call setPresentationValues("<font class=""error"">", "", "</font><br>")
  243. '''''''
  244. 'Table title
  245. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTableTitle, bStart) then
  246.   if bStart then
  247.     Response.Write "<table width=100% class=""bgdatalist"">"
  248.     gPresentationContext = kGenItemIdTableTitle
  249.   end if
  250. '''''''
  251. 'Data: end the table
  252. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  253.   if bStart then
  254.     gPresentationContext = kGenItemIdData
  255.   else
  256.     Response.Write "</table>"
  257.   end if
  258. '''''''''''
  259. 'Navigation
  260. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  261.   gPresentationContext = kGenItemIdNavigation
  262.   if bStart then
  263.       Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  264.     call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  265.   else
  266.       Response.Write "</tr></table>"
  267.   end if    
  268. else
  269.   '''''''
  270.   'Context
  271.   'Title: set help
  272.   if  gPresentationContext = kGenItemIdTitle or gPresentationContext = kGenItemIdNavigation then
  273.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNameLabel, not bStart) then
  274.         call setPresentationValues("<td width=10% align=right><font class=""normalBold"">", "", "</td>")
  275.     elseif theNode.text = kAction_RepSelectRestriction then
  276.       if bStart then 
  277.           call setPresentationValues("<td>  ", "", "</td>")
  278.         gStrInputEx = " class=""actionSubmit"" "
  279.         else 
  280.           call setPresentationValues("<td>", "", "</td>")
  281.         gStrInputEx = ""
  282.         end if
  283.     elseif theNode.text = kAction_MainViewHelp then
  284.       gStrInputType = ""
  285.       gStrInputEx = ""
  286.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  287.       call theNode.setAttribute(kXml_AttributeLabel, "")
  288.     elseif isIdDataStart(theNode, kDataId_RepSelectElementLabel, bStart) then
  289.       gStrInputType = ""
  290.       gStrInputEx = ""
  291.       call setPresentationValues("<table width=100% ><tr><td><font class=""normalBold"">", "", "</td>")
  292.     elseif theNode.text = kAction_RepSelectElement then
  293.         call setPresentationValues("<td align=right>", "", "</td></tr></table>")
  294.     end if
  295.  
  296.   'Table title
  297.   elseif gPresentationContext = kGenItemIdTableTitle then
  298.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepCategoryLabel, bStart) then
  299.       call setPresentationValues("<tr><td bgcolor=#EEEEEE width=20% align=middle><font class=""normalBold"">", "", "</td>")
  300.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepElementLabel, bStart) then
  301.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle colspan=3><font class=""normalBold"">", "", "</td>")
  302.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepSelectLabel, bStart) then
  303.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle width=15% ><font class=""normalBold"">", "", "</td>")
  304.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepSortLabel, bStart) then
  305.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle width=20% ><font class=""normalBold"">", "", "</td>")
  306.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepOptionLabel, bStart) then
  307.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle width=10% ><font class=""normalBold"">", "", "</td></tr>")
  308.     end if
  309.  
  310.   'Data: in table
  311.   elseif gPresentationContext = kGenItemIdData then
  312.     'category
  313.     if isIdDataStart(theNode, kItemId_RepCategory, bStart) then
  314.       Response.Write "<tr><td bgcolor=#EEEEEE valign=center align=center "
  315.       if theNode.childNodes.length > 1 then Response.Write " rowspan=""" & theNode.childNodes.length & """ "
  316.       Response.Write "><font class=""normalBold"">" & theNode.getAttribute(kXml_AttributeLabel) & " </td>"
  317.       gPresentationState = 0
  318.     'element label
  319.     elseif isIdData(theNode, kItemId_RepElementDimension) or isIdData(theNode, kItemId_RepElementMeasure) then
  320.       if bStart then
  321.         if gPresentationState > 0 then Response.Write "<tr>"
  322.         gPresentationState = gPresentationState + 1
  323.         if gPresentationValue = " bgcolor=#FFFFFF " then  
  324.           gPresentationValue = " bgcolor=#EEEEEE "
  325.         else 
  326.           gPresentationValue=" bgcolor=#FFFFFF "
  327.         end if
  328.         call setPresentationValues("<td" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  329.         if isIdData(theNode, kItemId_RepElementDimension) then
  330.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementDim.gif""></td>"
  331.         else
  332.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementMeas.gif""></td>"
  333.         end if
  334.         Response.Write "<td" & gPresentationValue & "><font class=""normal""> " & theNode.getAttribute(kXml_AttributeLabel) & "</td>"
  335.       else
  336.         Response.Write "</tr>"
  337.       end if
  338.     elseif theNode.text = kAction_MainViewDescription and bStart then 
  339.       if bstart then 'For descriptions
  340.         call setPresentationValues("<td align=center " & gPresentationValue & "><font class=""normal"">", "", "</td>")
  341.       end if
  342.     elseif isIdDataStart(theNode, kDataId_RepPivotPos, bStart) then 
  343.         'Start of pivot pos
  344.             gStrInputSize = "1" 'Force input of text field to 1
  345.         call setPresentationValues("<td align=center " & gPresentationValue & "><table><tr><td align=right><font class=""normal"">", "", "</td>")
  346.     elseif isIdDataStart(theNode, kDataId_RepSelectOrder, bStart) then 
  347.         'Start of select pos
  348.         call setPresentationValues("<td align=right " & gPresentationValue & "><font class=""normal"">", "", "</td></tr></table></td>")
  349.     elseif isIdDataStart(theNode, kDataId_RepSortOrder, bStart) then 
  350.         'Start of sort order
  351.         call setPresentationValues("<td align=center " & gPresentationValue & "><table><tr><td align=right><font class=""normal"">", "", "</td>")
  352.     elseif isIdDataStart(theNode, kDataId_RepSortDirection, bStart) then 
  353.         'Boolean for sort order, end of sort order
  354.         call setPresentationValues("<td align=right " & gPresentationValue & "><font class=""normal"">", "", "</td></tr></table></td>")
  355.     elseif isIdDataStart(theNode, kDataId_RepCalcOption, bStart) then 
  356.         'Start of calc option
  357.         call setPresentationValues("<td align=center " & gPresentationValue & "><font class=""normal"">", "", "</td>")
  358.     end if
  359.  
  360.   end if
  361. end if
  362. end sub
  363.  
  364.  
  365. '
  366. 'spRepSelectRestriction
  367. '
  368. sub spRepSelectRestriction(bStart, theNode)
  369. '''''''
  370. ' Title
  371. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  372.   gPresentationContext = kGenItemIdTitle
  373.     Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  374.   call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  375. ''''''''''''''''''''''
  376. ' Error message in red
  377. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  378.   call setPresentationValues("<br><font class=""error"">", "", "</font><br><br>")
  379. '''''''
  380. 'Table title
  381. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTableTitle, bStart) then
  382.   if bStart then
  383.     Response.Write "<table width=100% class=""bgdatalist"">"
  384.     gPresentationContext = kGenItemIdTableTitle
  385.   end if
  386. '''''''
  387. 'Data: end the table
  388. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  389.   if bStart then
  390.     gPresentationContext = kGenItemIdData
  391.   else
  392.     Response.Write "</table>"
  393.   end if
  394. '''''''''''
  395. 'Navigation
  396. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  397.   gPresentationContext = kGenItemIdNavigation
  398.   if bStart then
  399.       Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>"
  400.     call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  401.   else
  402.       Response.Write "</tr></table>"
  403.   end if    
  404. else
  405.   '''''''
  406.   'Context
  407.   'Title: set help and group
  408.   if  gPresentationContext = kGenItemIdTitle or gPresentationContext = kGenItemIdNavigation then
  409.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNameLabel, not bStart) then
  410.         call setPresentationValues("<td width=10% align=right><font class=""normalBold"">", "", "</td>")
  411.     elseif theNode.text = kAction_RepSelectElement then
  412.       gStrInputEx = " class=""actionSubmit"" "
  413.         call setPresentationValues("<td>  ", "", " ")
  414.     elseif theNode.text = kAction_RepEditRestriction then
  415.       if bStart then
  416.         gStrInputEx = " class=""actionSubmit"" "
  417.           call setPresentationValues(" ", "", "</td>")
  418.         else 
  419.         gStrInputEx = ""
  420.           call setPresentationValues("<td>", "", "</td>")
  421.         end if
  422.     elseif theNode.text = kAction_MainViewHelp then
  423.       gStrInputType = ""
  424.       gStrInputEx = ""
  425.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  426.       call theNode.setAttribute(kXml_AttributeLabel, "")
  427.     elseif isIdDataStart(theNode, kDataId_RepSelectRestrictionLabel, bStart) then
  428.       call setPresentationValues("<table width=100% class=""tabletitle""><tr><td><font class=""normalBold"">", "", "</td>")
  429.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kItemId_RepGroupName, bStart) then
  430.       'Group name
  431.       call setPresentationValues("<td align=right><font class=""normalBold"">", " ", "</td>")
  432.     elseif theNode.nodeName = kXml_TagItemEnum then
  433.       if bstart then 'Start of the group
  434.             Response.Write("<td align=right><font class=""normalBold"">")
  435.         call setPresentationValues("", " ", " ")
  436.       end if
  437.     elseif theNode.nodeName = kXml_TagActionSubmit and theNode.text = kAction_RepAddGroupRestriction then
  438.       if not bstart then 'End of the group
  439.             Response.Write "</td></tr></table>"
  440.       end if
  441.     end if
  442.  
  443.   'Table title
  444.   elseif gPresentationContext = kGenItemIdTableTitle then
  445.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepCategoryLabel, bStart) then
  446.       call setPresentationValues("<tr><td width=20% bgcolor=#EEEEEE valign=middle align=middle><font class=""normalBold"">", "", "</td>")
  447.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepElementLabel, bStart) then
  448.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle colspan=3><font class=""normalBold"">", "", "</td>")
  449.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepRestrictionLabel, bStart) then
  450.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle width=15% ><font class=""normalBold"">", "", "</td>")
  451.     end if
  452.  
  453.   'Data: in table
  454.   elseif gPresentationContext = kGenItemIdData then
  455.     'category
  456.     if isIdDataStart(theNode, kItemId_RepCategory, bStart) then
  457.       Response.Write "<tr><td bgcolor=#EEEEEE valign=middle align=middle rowspan=""" & theNode.childNodes.length & """><font class=""normalBold"">"
  458.       Response.Write theNode.getAttribute(kXml_AttributeLabel) & " </td>"
  459.       gPresentationState = 0
  460.     'element label
  461.     elseif isIdData(theNode, kItemId_RepElementDimension) or isIdData(theNode, kItemId_RepElementMeasure) then
  462.       if bStart then
  463.         if gPresentationState > 0 then Response.Write "<tr>"
  464.         gPresentationState = gPresentationState + 1
  465.         if gPresentationValue = " bgcolor=#FFFFFF " then  
  466.           gPresentationValue = " bgcolor=#EEEEEE "
  467.         else 
  468.           gPresentationValue=" bgcolor=#FFFFFF "
  469.         end if
  470.         call setPresentationValues("<td" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  471.         if isIdData(theNode, kItemId_RepElementDimension) then
  472.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementDim.gif""></td>"
  473.         else
  474.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementMeas.gif""></td>"
  475.         end if
  476.         Response.Write "<td" & gPresentationValue & "><font class=""normal"">" & theNode.getAttribute(kXml_AttributeLabel) & "</td>"
  477.       else
  478.         Response.Write "</tr>"
  479.       end if
  480.     elseif theNode.nodeName = kXml_TagActionLink then
  481.       if bstart then 'desc
  482.         call setPresentationValues("<td align=center " & gPresentationValue & "><font class=""normal"">", "", "</td>")
  483.       end if
  484.     else 
  485.       if bstart then 'default for check box
  486.             gStrInputSize = "1"
  487.         call setPresentationValues("<td align=center " & gPresentationValue & "><font class=""normal"">", "", "</td>")
  488.       end if
  489.     end if
  490.   end if
  491. end if
  492. end sub
  493.  
  494. '
  495. 'spRepEditRestriction
  496. '
  497. sub spRepEditRestriction(bStart, theNode)
  498. '''''''
  499. ' Title
  500. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  501.   gPresentationContext = kGenItemIdTitle
  502.     Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  503.   call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  504. ''''''''''''''''''''''
  505. ' Error message in red
  506. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  507.   call setPresentationValues("<font class=""error"">", "", "</font>")
  508. '''''''
  509. 'Table title
  510. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTableTitle, bStart) then
  511.   if bStart then
  512.     Response.Write "<table width=100% class=""bgdatalist"">"
  513.     gPresentationContext = kGenItemIdTableTitle
  514.   end if
  515. '''''''
  516. 'Data: end the table
  517. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  518.   if bStart then
  519.     gPresentationContext = kGenItemIdData
  520.   else
  521.     Response.Write "</table>"
  522.   end if
  523. '''''''''''
  524. 'Navigation
  525. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  526.   gPresentationContext = kGenItemIdNavigation
  527.   if bStart then
  528.     Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>"
  529.     call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  530.   else
  531.       Response.Write "</tr></table>"
  532.   end if    
  533. else
  534.   '''''''
  535.   'Context
  536.   'Title: set help and group
  537.   if gPresentationContext = kGenItemIdTitle or gPresentationContext = kGenItemIdNavigation then
  538.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNameLabel, not bStart) then
  539.         call setPresentationValues("<td width=10% align=right><font class=""normalBold"">", "", "</td>")
  540.     elseif theNode.text = kAction_RepSelectRestriction then
  541.       gStrInputEx = " class=""actionSubmit"" "
  542.         call setPresentationValues("<td>  ", "", " ")
  543.     elseif theNode.text = kAction_RepSetReportDefinition then
  544.       if bStart then
  545.         gStrInputEx = " class=""actionSubmit"" "
  546.           call setPresentationValues(" ", "", "</td>")
  547.         else 
  548.         gStrInputEx = ""
  549.           call setPresentationValues("<td>", "", "</td>")
  550.         end if
  551.     elseif theNode.text = kAction_MainViewHelp then
  552.       gStrInputType = ""
  553.       gStrInputEx = ""
  554.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  555.       call theNode.setAttribute(kXml_AttributeLabel, "")
  556.     elseif isIdDataStart(theNode, kDataId_RepEditRestrictionLabel, bStart) then
  557.       call setPresentationValues("<table width=100% class=""tabletitle""><tr><td><font class=""normalBold"">", "", "</td>")
  558.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kItemId_RepGroupName, bStart) then
  559.         'Group name
  560.         call setPresentationValues("<td align=right><font class=""normalBold"">", " ", "</td>")
  561.     elseif theNode.nodeName = kXml_TagItemEnum then
  562.       if bstart then 'Start of the group
  563.             Response.Write("<td align=right><font class=""normalBold"">")
  564.         call setPresentationValues("", " ", " ")
  565.       end if
  566.     elseif theNode.text = kAction_RepEditRestriction then
  567.       if not bstart then 'End of the group
  568.             Response.Write("</td></tr></table>")
  569.       end if
  570.     elseif isIdDataStart(theNode, kDataId_RepInvertRestrOperator, bStart) then
  571.       call setPresentationValues("<table width=100% class=""tabletitle""><tr><td><font class=""normalBold"">", "", "</td></tr></table>")
  572.     end if
  573.  
  574.   'Table title
  575.   elseif gPresentationContext = kGenItemIdTableTitle then
  576.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepCategoryLabel, bStart) then
  577.       call setPresentationValues("<tr><td width=15% bgcolor=#EEEEEE valign=middle align=middle><font class=""normalBold"">", "", "</td>")
  578.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepElementLabel, bStart) then
  579.       call setPresentationValues("<td bgcolor=#EEEEEE width=12% align=middle colspan=2><font class=""normalBold"">", "", "</td>")
  580.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepRequestUserLabel, bStart) then
  581.       call setPresentationValues("<td bgcolor=#EEEEEE width=10% align=middle><font class=""normalBold"">", "", "</td>")
  582.     elseif isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepRestrictionLabel, bStart) then
  583.       call setPresentationValues("<td bgcolor=#EEEEEE align=middle colspan=2><font class=""normalBold"">", "", "</td></tr>")
  584.     end if
  585.  
  586.   'Data: in table
  587.   elseif gPresentationContext = kGenItemIdData then
  588.     'category
  589.     if isIdDataStart(theNode, kItemId_RepCategory, bStart) then
  590.       Response.Write "<tr><td bgcolor=#EEEEEE valign=middle align=middle rowspan=""" & theNode.childNodes.length & """><font class=""normalBold"">"
  591.       Response.Write theNode.getAttribute(kXml_AttributeLabel) & " </td>"
  592.       gPresentationState = 0
  593.     'element label
  594.     elseif isIdData(theNode, kItemId_RepElementDimension) or isIdData(theNode, kItemId_RepElementMeasure) then
  595.       if bStart then
  596.         if gPresentationState > 0 then Response.Write "<tr>"
  597.         gPresentationState = gPresentationState + 1
  598.         if gPresentationValue = " bgcolor=#FFFFFF " then  
  599.           gPresentationValue = " bgcolor=#EEEEEE "
  600.         else 
  601.           gPresentationValue=" bgcolor=#FFFFFF "
  602.         end if
  603.         call setPresentationValues("<td" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  604.         if isIdData(theNode, kItemId_RepElementDimension) then
  605.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementDim.gif""></td>"
  606.         else
  607.           Response.Write "<td" & gPresentationValue & " align=center width=20><img src=""images/elementMeas.gif""></td>"
  608.         end if
  609.         Response.Write "<td " & gPresentationValue & " width=15% ><font class=""normal"">" & theNode.getAttribute(kXml_AttributeLabel) & "</td>"
  610.       else
  611.         Response.Write "</tr>"
  612.       end if
  613.     elseif isIdDataStart(theNode, kDataId_RepRequestUser, bStart) then 
  614.         call setPresentationValues("<td align=center" & gPresentationValue & "><font class=""normal"">", "<br>", "</td>")
  615.     elseif isIdDataStart(theNode, kDataId_RepAggFunction, bStart) then 'Aggr
  616.         call setPresentationValues("<td " & gPresentationValue & "><font class=""normal"">", "", "")
  617.     elseif isIdDataStart(theNode, kDataId_RepOperator, bStart) then 'Operator
  618.         call setPresentationValues("", "", "</td>")
  619.     ' Item values numeric or date time
  620.     elseif isIdDataStart(theNode, kDataId_RepMinimum, bStart) then
  621.       gStrInputSize = "12"
  622.       call setPresentationValues("<td" & gPresentationValue & ">", "", "")
  623.     elseif isIdDataStart(theNode, kDataId_RepMaximum, bStart) then
  624.       call setPresentationValues("<font class=""normal""> ", " </font>", "</td></tr>")
  625.     elseif isIdDataStart(theNode, kDataId_RepValue, bStart) then
  626.         call setPresentationValues("<td " & gPresentationValue & ">", "", "</td></tr>")
  627.     end if
  628.  
  629.   end if
  630. end if
  631. end sub
  632.  
  633.  
  634. '
  635. 'spRepSetReportdefinition
  636. '
  637. sub spRepSetReportdefinition(bStart, theNode)
  638. '''''''
  639. ' Title
  640. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  641.   if bStart then
  642.     gPresentationContext = kGenItemIdTitle
  643.       Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  644.     call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  645.     else
  646.       Response.Write "</table>"
  647.     end if
  648. ''''''''''''''''''''''
  649. ' Error message in red
  650. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  651.   call setPresentationValues("<table width=100% border=0 class=""bgdata""><tr><td><font class=""error"">", "", "</font><br></td></tr></table>")
  652. '''''''
  653. 'Data: 
  654. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  655.   gPresentationContext = kGenItemIdData
  656.   if bStart then 
  657.          Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 class=""bgdata""><tr><td><table class=""bgdata""><tr>")
  658.     call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td><font class=""normal"">", "</td></tr>")
  659.   else 
  660.       Response.Write "</table></td></tr></table>"
  661.   end if
  662. '''''''''''
  663. 'Navigation
  664. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  665.   gPresentationContext = kGenItemIdNavigation
  666.   if bStart then
  667.       Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td>")
  668.     call setPresentationValues("<td width=25% ><font class=""title"">", "", "</td>")
  669.   else
  670.       Response.Write "</tr></table>"
  671.   end if    
  672. else
  673.   '''''''
  674.   'Context
  675.   'Data
  676.   if gPresentationContext = kGenItemIdData then
  677.     if isIdDataStart(theNode, kDataId_RepEditReportLabel, bStart) then
  678.          call setPresentationValues("<tr><td><font class=""normalBold""> ", "", "</td><td></td></tr>")
  679.     elseif isIdDataStart(theNode, kDataId_RepFolderList, bStart) then
  680.       call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td><font class=""normal"">", "</td></tr>")
  681.     elseif isIdDataStart(theNode, kDataId_RepOptionSpanCol, bStart) then
  682.       call setPresentationValues("</table><table class=""bgdata""><tr><td><font class=""normal"">", "", "</td>")
  683.     elseif isIdDataStart(theNode, kDataId_RepOptionSpanRow, bStart) then
  684.       call setPresentationValues("<td><font class=""normal"">", "", "</td></tr>")
  685.     elseif isIdDataStart(theNode, kDataId_RepOptionCntCol, bStart) then
  686.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  687.     elseif isIdDataStart(theNode, kDataId_RepOptionCntRow, bStart) then
  688.       call setPresentationValues("<td><font class=""normal"">", "", "</td></tr>")
  689.     elseif isIdDataStart(theNode, kDataId_RepOptionSumCol, bStart) then
  690.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  691.     elseif isIdDataStart(theNode, kDataId_RepOptionSumRow, bStart) then
  692.       call setPresentationValues("<td><font class=""normal"">", "", "</td></tr>")
  693.     elseif isIdDataStart(theNode, kDataId_RepOptionAvgCol, bStart) then
  694.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  695.     elseif isIdDataStart(theNode, kDataId_RepOptionAvgRow, bStart) then
  696.       call setPresentationValues("<td><font class=""normal"">", "", "</td></tr>")
  697.     elseif isIdDataStart(theNode, kDataId_RepOptionMinCol, bStart) then
  698.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  699.     elseif isIdDataStart(theNode, kDataId_RepOptionMinRow, bStart) then
  700.       call setPresentationValues("<td><font class=""normal"">", "", "</td></tr>")
  701.     elseif isIdDataStart(theNode, kDataId_RepOptionMaxCol, bStart) then
  702.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  703.     elseif isIdData(theNode, kDataId_RepOptionMaxRow) then
  704.       if bStart then
  705.         call setPresentationValues("<td><font class=""normal"">", "", "</td></tr></table>")
  706.       else 
  707.           Response.Write "<tr><td><table class=""bgdata"">"
  708.         call setPresentationValues("<tr><td valign=top><font class=""normal"">", "</td><td valign=top> <font class=""normal"">", "</td></tr>")
  709.       end if
  710.     end if
  711.  
  712.   'Title: set help
  713.   elseif gPresentationContext = kGenItemIdTitle or gPresentationContext = kGenItemIdNavigation then
  714.     if isNodeNameIdStart(theNode, kXml_TagItemDisplay, kDataId_RepReportNameLabel, not bStart) then
  715.         call setPresentationValues("<td width=10% align=right><font class=""normalBold"">", "", "</td>")
  716.     elseif theNode.text = kAction_RepEditRestriction then
  717.       if bStart then
  718.         gStrInputEx = " class=""actionSubmit"" "
  719.           call setPresentationValues("<td>  ", "", " ")
  720.         else 
  721.         gStrInputEx = ""
  722.           call setPresentationValues("<td>", "", "</td>")
  723.         end if
  724.     elseif theNode.text = kAction_MainViewHelp then
  725.       gStrInputType = ""
  726.       gStrInputEx = ""
  727.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  728.       call theNode.setAttribute(kXml_AttributeLabel, "")
  729.     end if
  730.     
  731.   end if
  732. end if
  733. end sub
  734.  
  735. '
  736. 'spRepEditReport
  737. '
  738. sub spRepEditReport(bStart, theNode)
  739. '''''''
  740. ' Title
  741. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  742.   if bStart then
  743.     gPresentationContext = kGenItemIdTitle
  744.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""> </td><td><font class=""title"">", "", "</td>")
  745.   else
  746.     Response.Write "</tr></table><table width=100% border=0 cellpadding=0 cellspacing=0 class=""bgdata""><tr><td>"
  747.   end if
  748. ''''''''''''''''''''''
  749. ' Error message in red
  750. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  751.   call setPresentationValues("<br><font class=""error"">", "", "</font><br><br>")
  752. '''''''
  753. 'Data1: execute actions
  754. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData1) then
  755.   if bStart then
  756.     Response.Write "<table width=100% class=""bgdata""><tr><td><table width=100% ><tr>"
  757.     gPresentationContext = kGenItemIdData1
  758.     else
  759.     Response.Write "</tr></table></td></tr></table><hr align=center>"
  760.   end if
  761. '''''''
  762. 'Data2: report definition and edit button
  763. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData2) then
  764.   if bStart then
  765.     Response.Write "<table width=100% class=""bgdata"">"
  766.     gPresentationContext = kGenItemIdData2
  767.     call setPresentationValues("<tr><td width=25% valign=top><font class=""normalBold"">", "</td><td><font class=""normal"">", "</td></tr>")
  768.     else
  769.     Response.Write "</table><hr align=center>"
  770.   end if
  771. '''''''
  772. 'Data3: report output
  773. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData3) then
  774.   if bStart then
  775.     Response.Write "<table width=100% class=""bgdata""><tr><td>"
  776.     Response.Write "<table width=100% class=""bgdata""><tr><td><font class=""normalBold"">" & theNode.getAttribute(kXml_AttributeLabel)
  777.     gPresentationContext = kGenItemIdData3
  778.     else
  779.     Response.Write "</table></td></tr></table><hr align=center>"
  780.   end if
  781. '''''''
  782. 'Data4: report schedule
  783. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData4) then
  784.   if bStart then
  785.     Response.Write "<table width=100% class=""bgdata""><tr><td>"
  786.     Response.Write "<table width=100% class=""bgdata""><tr><td><font class=""normalBold"">"& theNode.getAttribute(kXml_AttributeLabel)
  787.     gPresentationContext = kGenItemIdData4
  788.     else
  789.     Response.Write "</table></td></tr></table><hr align=center>"
  790.   end if
  791. '''''''
  792. 'Data5: move,delete
  793. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData5) then
  794.   if bStart then
  795.     Response.Write "<table width=100% class=""bgdata""><tr><td><table width=100% ><tr>"
  796.     call setPresentationValues("", "", "")
  797.     gPresentationContext = kGenItemIdData5
  798.     else
  799.     Response.Write "</tr></table></td></tr></table>"
  800.   end if
  801. '''''''''''
  802. 'Navigation
  803. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdNavigation, bStart) then
  804.   Response.Write "</td></tr></table>"
  805.   gPresentationContext = kGenItemIdNavigation
  806.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td align=right>", "", " </td></tr></table>")
  807. else
  808.   '''''''
  809.   'Context
  810.   if gPresentationContext = kGenItemIdTitle then 'Context Title
  811.     if theNode.text = kAction_MainViewHelp then
  812.       call setPresentationValues("<td class=""titleLink"" valign=bottom align=right>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", " ")
  813.       call theNode.setAttribute(kXml_AttributeLabel, "")
  814.     end if
  815.   elseif gPresentationContext = kGenItemIdData1 then 'Context Data 1
  816.     if theNode.text = kAction_RepExecuteReport and bStart then
  817.       call setPresentationValues("<td valign=center align=center width=20><img src=""images/execute.gif""></td><td width=25% ><font class=""normal"">", "", "</td>")
  818.     elseif theNode.text = kAction_RepEditExecToFolder and bStart then
  819.       call setPresentationValues("<td align=right width=40><img src=""images/executeToFolder.gif""></td><td width=25% ><font class=""normal"">", "", "</td>")
  820.     elseif theNode.text = kAction_RepPreview and bStart then
  821.       call setPresentationValues("<td align=right width=40><img src=""images/preview.gif""></td width=25% ><td><font class=""normal"">", "", "</td><td></td>")
  822.     elseif theNode.text = kAction_RepEditReport and bStart then
  823.       call setPresentationValues("<td align=right width=40><img src=""images/refresh.gif""></td width=25% ><td><font class=""normal"">", "", "</td><td></td>")
  824.     end if
  825.   
  826.   elseif gPresentationContext = kGenItemIdData2 then 'Context Data 2
  827.     if theNode.text = kAction_RepSelectElement and bStart then
  828.       'new form to go to the top
  829.       Response.Write "</table><table><tr></form><form name=""editReportForm"" method=""post"" action=""" & kStrAspMainPage & """ target=""_top"">"
  830.       call setPresentationValues("<td>", "", "</td>")
  831.     elseif theNode.text = kAction_RepSetReportDefinition and not bStart then
  832.       Response.Write "</tr></form><form name=""nextReportForm"" method=""post"" action=""" & kStrAspMainPage & """ target=""" & gStrMainFrameName & """>"
  833.     end if
  834.   elseif gPresentationContext = kGenItemIdData3 then 'Context Data 3
  835.     if isNodeNameIdStart(theNode, kXml_TagItemEnum, theNode.getAttribute(kXml_AttributeDataTag) & kDataId_RepDeviceList, bStart) then
  836.       call setPresentationValues("</td><td align=right><font class=""normal"">", "", " ")
  837.     elseif theNode.text = kAction_RepNewReportOutput then
  838.       if bStart then
  839.         call setPresentationValues("", "", "</td></tr></table>")
  840.       else
  841.         Response.Write "<table width=100% >"
  842.       end if
  843.     elseif theNode.text = kAction_RepEditReportOutput and bStart then
  844.       Response.Write "<tr>"
  845.       call setPresentationValues("<td align=center width=20><img src=""images/reportOutput.gif""></td><td><font class=""normal"">", "", "</td><td width=10><font class=""normal""> </td>")      
  846.     elseif isIdDataStart(theNode, kDataId_RepDeviceName, bStart) then
  847.       call setPresentationValues("<td><font class=""normal"">", "", "</td>")      
  848.     elseif theNode.text = kAction_RepExecuteReport and bStart then
  849.         call setPresentationValues("<td align=center width=20><img src=""images/execute.gif""></td><td width=15% ><font class=""normal"">", "", "</td>")
  850.     elseif theNode.text = kAction_RepDeleteReportOutput then
  851.       if bStart then 
  852.         call setPresentationValues("<td align=center width=20><img src=""images/delete.gif""></td><td  width=10% ><font class=""normal"">", "", "</td>")
  853.       else
  854.         Response.Write "</tr>"
  855.       end if
  856.     end if
  857.  
  858.   elseif gPresentationContext = kGenItemIdData4 then 'Context Data 4
  859.     if isNodeNameIdStart(theNode, kXml_TagItemEnum, theNode.getAttribute(kXml_AttributeDataTag) & kDataId_RepScheduleType, bStart) then
  860.       call setPresentationValues("</td><td align=right><font class=""normal"">", "", " ")
  861.     elseif theNode.text = kAction_RepNewSchedule then
  862.       if bStart then
  863.         call setPresentationValues("", "", "</td></tr></table>")
  864.       else
  865.         Response.Write "<table width=100% >"
  866.       end if
  867.     elseif theNode.text = kAction_RepEditSchedule then
  868.       if bStart then
  869.         Response.Write "<tr>"
  870.         call setPresentationValues("<td align=center width=20><img src=""images/schedule.gif""></td><td width=20% ><font class=""normal"">", "", "</td>")
  871.       else 
  872.         call setPresentationValues("<td>  <font class=""normal"">", "", "</td>")
  873.       end if
  874.     elseif theNode.text = kAction_RepDeleteSchedule then
  875.       if bStart then
  876.         call setPresentationValues("<td align=center width=20><img src=""images/delete.gif""></td><td width=10% ><font class=""normal"">", "", "</td>")
  877.       else    
  878.         Response.Write "</tr>"
  879.       end if
  880.     end if
  881.  
  882.   elseif gPresentationContext = kGenItemIdData5 then 'Context Data 5
  883.     if isIdDataStart(theNode, kDataId_RepMakeCopy, bStart) then 
  884.       call setPresentationValues("<td><font class=""normal"">", "", "</td>")
  885.     elseif isIdDataStart(theNode, kDataId_RepMoveFolderList, bStart) then
  886.       call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td><font class=""normal"">", "", " ")
  887.     elseif isIdDataStart(theNode, kDataId_RepReportName, bStart) then
  888.       gStrInputSize = "20"
  889.       call setPresentationValues("", "", "")
  890.     elseif theNode.text = kAction_RepMoveReport and bStart then
  891.         call setPresentationValues(" ", "", "</td></tr></table>")
  892.     elseif isIdData(theNode, kDataId_RepConfirmDeletion) then
  893.       call setPresentationValues("<table width=100% ><tr><td><font class=""normal"">", "", "</td>")
  894.     elseif isIdData(theNode, kDataId_RepDeleteReport) then
  895.       call setPresentationValues("<td width=20><img src=""images/delete.gif""></td><td><font class=""normal"">", "", " ")
  896.     elseif theNode.text = kAction_RepDeleteReport then
  897.         call setPresentationValues("", "", "</td>")
  898.     end if
  899.     
  900.   end if
  901. end if
  902. end sub
  903.  
  904. '
  905. 'spRepExecuteReport
  906. '
  907. sub spRepExecuteReport(bStart, theNode)
  908. '''''''
  909. ' Title
  910. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  911.   gPresentationContext = kGenItemIdTitle
  912.   call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/execute.gif""></td><td><font class=""title"">", "", "</td></tr></table><br><br>")
  913. '''''
  914. 'Data 
  915. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdData, bStart) then
  916.   gPresentationContext = kGenItemIdData
  917.   call setPresentationValues("<font class=""normal"">", "", "<br><br><br>")
  918. '''''''''''
  919. 'Navigation
  920. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdNavigation,bStart) then
  921.   gPresentationContext = kGenItemIdNavigation
  922. else
  923.   '''''''
  924.   'Context
  925.   if gPresentationContext = kGenItemIdNavigation then 'Context Navigation
  926.     if theNode.text = kAction_RepRefreshExecute then 
  927.       if bStart then
  928.         call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td> ", "", "</td>")
  929.       else 
  930.         call setPresentationValues("<td align=right>", "", " </td></tr></table>")
  931.       end if
  932.     elseif theNode.text <> kAction_RepCancelExecute then
  933.         call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td align=right> ", "", " </td></tr></table>")
  934.     end if
  935.   end if
  936. end if
  937. end sub
  938.  
  939. '
  940. 'spRepEditRestrictionAtExec
  941. '
  942. sub spRepEditRestrictionAtExec(bStart, theNode)
  943. '''''''
  944. ' Title
  945. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  946.   gPresentationContext = kGenItemIdTitle
  947.   call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td><td><font class=""title"">", "", "</td></tr></table>")
  948. ''''''''''''''''''''''
  949. ' Error message in red
  950. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  951.   call setPresentationValues("<font class=""error"">", "", "</font><br>")
  952. '''''
  953. 'Data 
  954. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  955.   if bStart then
  956.     gPresentationContext = kGenItemIdData
  957.   else
  958.     response.write("</td></tr></table>")
  959.   end if
  960. '''''''''''
  961. 'Navigation
  962. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdNavigation, bStart) then
  963.   gPresentationContext = kGenItemIdNavigation
  964. else
  965.   '''''''
  966.   'Context
  967.   if gPresentationContext = kGenItemIdData then 'Context Data 
  968.     if isIdDataStart(theNode, kDataId_RepRestrictionLabel, bStart) then 
  969.       call setPresentationValues("<font class=""normalBold"">", "", "<br><table width=100% class=""bgdatalist""><tr><td>")
  970.     elseif isIdDataStart(theNode, kDataId_RepElementLabel, bStart) then
  971.       gPresentationState = gPresentationState + 1
  972.       if gPresentationState mod 2 = 1 then 
  973.         gPresentationValue = " bgcolor=#EEEEEE "
  974.       else 
  975.         gPresentationValue=" bgcolor=#FFFFFF "
  976.       end if
  977.       call setPresentationValues("<tr><td" & gPresentationValue & "><font class=""normal""> ", "", "</td>")
  978.     elseif isIdDataStart(theNode, kDataId_RepOperator, bStart) then
  979.       call setPresentationValues("<td width=15% align=center" & gPresentationValue & "><font class=""normal"">", "", "</td>")
  980.     elseif isIdDataStart(theNode, kDataId_RepValue, bStart) then
  981.       call setPresentationValues("<td align=left" & gPresentationValue & ">", "", "")
  982.     ' Item numeric or date time
  983.     elseif isIdDataStart(theNode, kDataId_RepMinimum, bStart) then
  984.       call setPresentationValues("<td align=left" & gPresentationValue & ">", "", "")
  985.     elseif isIdDataStart(theNode, kDataId_RepMaximum, bStart) then
  986.       call setPresentationValues("<br>", "", "")
  987.     end if
  988.   elseif gPresentationContext = kGenItemIdNavigation then 'Context Navigation
  989.     if theNode.text = kAction_RepExecuteReport or theNode.text = kAction_RepPreviewReport or theNode.text = kAction_RepExecuteToFolder2 then 
  990.       if bStart then
  991.         call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td> ", "", "</td>")
  992.       else 
  993.         call setPresentationValues("<td align=right>", "", " </td></tr></table>")
  994.       end if
  995.     end if
  996.   end if
  997. end if
  998. end sub
  999.  
  1000.  
  1001. '
  1002. 'spRepEditExecToFolder
  1003. '
  1004. sub spRepEditExecToFolder(bStart, theNode)
  1005. '''''''
  1006. ' Title
  1007. if isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdTitle, bStart) then
  1008.   gPresentationContext = kGenItemIdTitle
  1009.   call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td><td><font class=""title"">", "", "</td>")
  1010. ''''''''''''''''''''''
  1011. ' Error message in red
  1012. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  1013.   call setPresentationValues("<br><font class=""error"">", "", "</font><br>")
  1014. '''''
  1015. 'Data 
  1016. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdData, bStart) then
  1017.   gPresentationContext = kGenItemIdData
  1018. '''''''''''
  1019. 'Navigation
  1020. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdNavigation, bStart) then
  1021.   gPresentationContext = kGenItemIdNavigation
  1022. else
  1023.   '''''''
  1024.   'Context
  1025.   if gPresentationContext = kGenItemIdTitle then 'Context Title
  1026.     if theNode.text = kAction_MainViewHelp then
  1027.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  1028.       call theNode.setAttribute(kXml_AttributeLabel, "")
  1029.     end if
  1030.   elseif gPresentationContext = kGenItemIdData then 'Context Data 
  1031.     if isIdDataStart(theNode, kDataId_RepExecuteToFolderList, bStart) then
  1032.       call setPresentationValues("<br><table><tr><td align=center width=20><img src=""images/executeToFolder.gif""></td><td><font class=""normal"">", "", "")
  1033.     elseif isIdDataStart(theNode, kDataId_RepFileName, bStart) then
  1034.       gStrInputSize = "20"
  1035.       call setPresentationValues("", "", "</td></tr></table><br>")
  1036.     end if
  1037.   elseif gPresentationContext = kGenItemIdNavigation then 'Context Navigation
  1038.     if theNode.text = kAction_RepExecuteToFolder then 
  1039.       if bStart then
  1040.         call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td> ", "", "</td>")
  1041.       else 
  1042.         call setPresentationValues("<td align=right>", "", " </td></tr></table>")
  1043.       end if
  1044.     end if
  1045.   end if
  1046. end if
  1047. end sub
  1048.  
  1049.  
  1050. '
  1051. 'spRepEditReportOutput
  1052. '
  1053. sub spRepEditReportOutput(bStart, theNode)
  1054. '''''''
  1055. ' Title
  1056. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  1057.   if bStart then
  1058.     gPresentationContext = kGenItemIdTitle
  1059.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td><td><font class=""title"">", "", "</td>")
  1060.   else
  1061.     Response.Write "</tr></table><table width=100% border=0 cellpadding=0 cellspacing=0 class=""bgdata""><tr><td>"
  1062.   end if
  1063. ''''''''''''''''''''''
  1064. ' Error message in red
  1065. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  1066.   call setPresentationValues("<br><font class=""error""> ", "", "</font><br><br>")
  1067. '''''''
  1068. 'Data:
  1069. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  1070.   if bStart then
  1071.     gStrTextAreaRows = "6"
  1072.     gStrTextAreaCols = "40"
  1073.     Response.Write "<table>"
  1074.     gPresentationContext = kGenItemIdData
  1075.     call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td> <font class=""normal"">", "</td></tr>")
  1076.   else
  1077.     Response.Write "<br></td></tr></table>"
  1078.   end if
  1079. '''''''''''
  1080. 'Navigation
  1081. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  1082.   gPresentationContext = kGenItemIdNavigation
  1083.   if bStart then
  1084.       Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td> "
  1085.     call setPresentationValues("", "", " ")
  1086.   else
  1087.       Response.Write "</td></tr></table>"
  1088.   end if    
  1089. else
  1090.   '''''''
  1091.   'Context
  1092.   if gPresentationContext = kGenItemIdTitle then 'Context Title
  1093.     if theNode.text = kAction_MainViewHelp then
  1094.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  1095.       call theNode.setAttribute(kXml_AttributeLabel, "")
  1096.     end if
  1097.   elseif gPresentationContext = kGenItemIdData then 'Context Data
  1098.     if theNode.getAttribute("id") = theNode.getAttribute(kXml_AttributeDataTag) & kDataId_RepROOptionIfRecordsOnly and bStart then 
  1099.       Response.Write "</table><br>"
  1100.       call setPresentationValues("<font class=""normal""> ", "", "<br>")
  1101.     end if
  1102.   'Navigation: special form for the cancel button
  1103.   elseif  gPresentationContext = kGenItemIdNavigation then
  1104.     if theNode.text = kAction_RepEditReport then
  1105.       if bStart then
  1106.         Response.Write "</td><td align=right>"
  1107.       end if
  1108.     end if
  1109.   end if
  1110. end if
  1111. end sub
  1112.  
  1113. '
  1114. 'spRepEditSchedule
  1115. '
  1116. sub spRepEditSchedule(bStart, theNode)
  1117. '''''''
  1118. ' Title
  1119. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  1120.   if bStart then
  1121.     gPresentationContext = kGenItemIdTitle
  1122.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/reportFile.gif""></td><td><font class=""title"">", "", "</td>")
  1123.   else
  1124.     Response.Write "</tr></table><table width=100% border=0 cellpadding=0 cellspacing=0 class=""bgdata""><tr><td>"
  1125.   end if
  1126. ''''''''''''''''''''''
  1127. ' Error message in red
  1128. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  1129.   call setPresentationValues("<br><font class=""error""> ", "", "</font><br><br>")
  1130. '''''''
  1131. 'Data:
  1132. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData) then
  1133.   if bStart then
  1134.     Response.Write "<table>"
  1135.     gPresentationContext = kGenItemIdData
  1136.     call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td> <font class=""normal"">", "</td></tr>")
  1137.   else
  1138.     Response.Write "</table><br></td></tr></table>"
  1139.   end if
  1140. '''''''''''
  1141. 'Navigation
  1142. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdNavigation) then
  1143.   gPresentationContext = kGenItemIdNavigation
  1144.   if bStart then
  1145.       Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td> "
  1146.     call setPresentationValues("", "", " ")
  1147.   else
  1148.       Response.Write "</td></tr></table>"
  1149.   end if    
  1150. else
  1151.   '''''''
  1152.   'Context
  1153.   if gPresentationContext = kGenItemIdTitle then 'Context Title
  1154.     if theNode.text = kAction_MainViewHelp then
  1155.       call setPresentationValues("<td align=center width=20>", "<img border=""0"" alt=""" & theNode.getAttribute(kXml_AttributeLabel) & """ src=""images/help.gif"">", "</td></tr></table>")
  1156.       call theNode.setAttribute(kXml_AttributeLabel, "")
  1157.     end if
  1158.   elseif gPresentationContext = kGenItemIdData then 'Context Data
  1159.     if isIdDataStart(theNode, kDataId_RepScheduleMonthDayNum, bStart) then
  1160.       gStrInputSize="2"
  1161.       gPresentationValue = "inMonth"
  1162.       call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td> <font class=""normal"">", " ")
  1163.     elseif isIdDataStart(theNode, kDataId_RepScheduleEveryNPeriod, bStart) then
  1164.       if gPresentationValue = "inMonth" then
  1165.         call setPresentationValues(" ", " ", " ")
  1166.       else 
  1167.         gStrInputSize="2"
  1168.         call setPresentationValues("<tr><td><font class=""normalBold"">", "</td><td> <font class=""normal"">", " ")
  1169.       end if
  1170.     elseif isIdDataStart(theNode, kDataId_RepScheduleDays, bStart) _
  1171.         or isIdDataStart(theNode, kDataId_RepScheduleMinutes, bStart) _
  1172.         or isIdDataStart(theNode, kDataId_RepScheduleWeeks, bStart) _
  1173.         or isIdDataStart(theNode, kDataId_RepScheduleMonths, bStart) then
  1174.       call setPresentationValues("<font class=""normal""> ", "", "</td></tr>")
  1175.     elseif isIdDataStart(theNode, kDataId_RepSWDSunday, bStart) then
  1176.       response.write("<tr><td> </td><td>")
  1177.       call setPresentationValues("<font class=""normal"">  ", " ", " ")
  1178.     elseif isIdDataStart(theNode, kDataId_RepSWDWednesday, not bStart) then
  1179.       response.write("</td></tr><tr><td> </td><td>")
  1180.     elseif isIdDataStart(theNode, kDataId_RepSWDSaturday, not bStart) then
  1181.       response.write("</td></tr>")
  1182.     elseif isIdDataStart(theNode, kDataId_RepScheduleStartTime, bStart) then
  1183.       call setPresentationValues("<tr><td></td><td><table><tr><td><font class=""normal"">", "</td><td><font class=""normal""> ", "</td>")
  1184.       gStrInputSize="12"
  1185.     elseif isIdDataStart(theNode, kDataId_RepScheduleEndTime, bStart) then
  1186.       call setPresentationValues("<td>", "</td><td><font class=""normal"">", "</td></tr></table></td></tr>")
  1187.     elseif isIdDataStart(theNode, kDataId_RepScheduleStartDate, bStart) then
  1188.       call setPresentationValues("<tr><td><font class=""normalBold"">", " </td><td><font class=""normal""> ", "</td></tr>")
  1189.       gStrInputSize="12"
  1190.     elseif isIdDataStart(theNode, kDataId_RepScheduleStartDateTime, bStart) then
  1191.       call setPresentationValues("<tr><td><font class=""normalBold"">", " </td><td><font class=""normal""> ", "</td></tr>")
  1192.       gStrInputSize="20"
  1193.     elseif isIdDataStart(theNode, kDataId_RepScheduleHasEndDate, bStart) then
  1194.       call setPresentationValues("<tr><td><font class=""normalBold"">", "", " </td><td><font class=""normal""> ")
  1195.     elseif isIdDataStart(theNode, kDataId_RepScheduleEndDate, bStart) then
  1196.       call setPresentationValues("<font class=""normal"">", "", " </td></tr>")
  1197.     elseif isIdDataStart(theNode, kDataId_RepScheduleDayTime, bStart) then
  1198.       gStrInputSize="10"
  1199.       call setPresentationValues("<tr><td><font class=""normalBold"">", " </td><td><font class=""normal""> ", "</td></tr>")
  1200.     elseif isIdDataStart(theNode, kDataId_RepExecStatus, bStart) then 'Status
  1201.       Response.Write "</table><hr><table>"
  1202.       call setPresentationValues("<tr><td><font class=""normalBold"">", " </td><td><font class=""normal"">   ", "</td></tr>")
  1203.     end if
  1204.   'Navigation: special form for the cancel button
  1205.   elseif  gPresentationContext = kGenItemIdNavigation then
  1206.     if theNode.text = kAction_RepEditReport then
  1207.       if bStart then
  1208.         Response.Write "</td><td align=right>"
  1209.       end if
  1210.     end if
  1211.   end if
  1212. end if
  1213. end sub
  1214.  
  1215. '
  1216. 'spRepEditFile
  1217. '
  1218. sub spRepEditFile(bStart, theNode)
  1219. '''''''
  1220. ' Title
  1221. if isNodeNameId(theNode, kXml_TagItem, kGenItemIdTitle) then
  1222.   if bStart then
  1223.     gPresentationContext = kGenItemIdTitle
  1224.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=25 class=""title""><tr><td align=center width=20><img src=""images/file.gif""></td><td><font class=""title"">", "", "</td>")
  1225.   else
  1226.     Response.Write "</tr></table><table width=100% width=100% border=0 cellpadding=0 cellspacing=0 class=""bgdata""><tr><td><br>"
  1227.   end if
  1228. ''''''''''''''''''''''
  1229. ' Error message in red
  1230. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdError, bStart) then
  1231.   call setPresentationValues("<font class=""error""><br> ", "", "</font><br><br>")
  1232. '''''''
  1233. 'Data5: move,delete
  1234. elseif isNodeNameId(theNode, kXml_TagItem, kGenItemIdData5) then
  1235.   if bStart then
  1236.     Response.Write "<table width=100% class=""bgdata"">"
  1237.     call setPresentationValues("", "", "<br>")
  1238.     gPresentationContext = kGenItemIdData5
  1239.     else
  1240.     Response.Write "</table>"
  1241.     call setPresentationValues("", "", "<br>")
  1242.   end if
  1243. '''''''''''
  1244. 'Navigation
  1245. elseif isNodeNameIdStart(theNode, kXml_TagItem, kGenItemIdNavigation, bStart) then
  1246.   Response.Write("<br></tr></table>")
  1247.   Response.Write "</td></tr></table>"
  1248.   gPresentationContext = kGenItemIdNavigation
  1249.     call setPresentationValues("<table width=100% border=0 cellpadding=0 cellspacing=0 height=32 class=""navigation""><tr><td align=right>", "", " </td></tr></table>")
  1250. else
  1251.   '''''''
  1252.   'Context
  1253.   if gPresentationContext = kGenItemIdData1 then 'Context Data 1
  1254.     if theNode.text = kAction_RepExecuteReport and bStart then
  1255.       call setPresentationValues("<td align=center width=20><img src=""images/execute.gif""></td><td width=35% ><font class=""normal"">", "", "</td>")
  1256.     elseif theNode.text = kAction_RepPreview and bStart then
  1257.       call setPresentationValues("<td align=center width=20><img src=""images/preview.gif""></td><td width=35% ><font class=""normal"">", "", "</td>")
  1258.     end if
  1259.   
  1260.   elseif gPresentationContext = kGenItemIdData5 then 'Context Data 5
  1261.     if isIdDataStart(theNode, kDataId_RepMakeCopy, bStart) then 
  1262.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  1263.     elseif isIdDataStart(theNode, kDataId_RepMoveFolderList, bStart) then
  1264.       call setPresentationValues("<td align=center width=20><img src=""images/copy.gif""></td><td><font class=""normal""> ", "", " ")
  1265.     elseif isIdDataStart(theNode, kDataId_RepReportName, bStart) then
  1266.       gStrInputSize = "20"
  1267.       call setPresentationValues("", "", "")
  1268.     elseif theNode.text = kAction_RepMoveFile and bStart then
  1269.         call setPresentationValues(" ", "", "</td></tr>")
  1270.     elseif isIdData(theNode, kDataId_RepConfirmDeletion) then
  1271.       call setPresentationValues("<tr><td><font class=""normal"">", "", "</td>")
  1272.     elseif isIdData(theNode, kDataId_RepDeleteReport) then
  1273.       call setPresentationValues("<td align=center width=20><img src=""images/delete.gif""></td><td><font class=""normal"">", "", " ")
  1274.     elseif theNode.text = kAction_RepDeleteFile then
  1275.         call setPresentationValues("", "", "</td></tr>")
  1276.     end if
  1277.     
  1278.   end if
  1279. end if
  1280. end sub
  1281.  
  1282. %>
  1283.  
  1284.